home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / flex / amiga / flex.lha / Flex.src.lha / sym.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-03-13  |  7.4 KB  |  320 lines
  1. /* sym - symbol table routines */
  2.  
  3. /*-
  4.  * Copyright (c) 1990 The Regents of the University of California.
  5.  * All rights reserved.
  6.  *
  7.  * This code is derived from software contributed to Berkeley by
  8.  * Vern Paxson.
  9.  * 
  10.  * The United States Government has rights in this work pursuant
  11.  * to contract no. DE-AC03-76SF00098 between the United States
  12.  * Department of Energy and the University of California.
  13.  *
  14.  * Redistribution and use in source and binary forms are permitted provided
  15.  * that: (1) source distributions retain this entire copyright notice and
  16.  * comment, and (2) distributions including binaries display the following
  17.  * acknowledgement:  ``This product includes software developed by the
  18.  * University of California, Berkeley and its contributors'' in the
  19.  * documentation or other materials provided with the distribution and in
  20.  * all advertising materials mentioning features or use of this software.
  21.  * Neither the name of the University nor the names of its contributors may
  22.  * be used to endorse or promote products derived from this software without
  23.  * specific prior written permission.
  24.  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
  25.  * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
  26.  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  27.  */
  28.  
  29. #ifndef lint
  30. static char rcsid[] =
  31.     "@(#) $Header: /usr/fsys/odin/a/vern/flex/RCS/sym.c,v 2.4 90/06/27 23:48:36 vern Exp $ (LBL)";
  32. #endif
  33.  
  34. #include "flexdef.h"
  35.  
  36. #ifdef AMIGA
  37. #include "sym.i" /* Include the prototypes */
  38. #include "misc.i"
  39. #endif
  40.  
  41. /* declare functions that have forward references */
  42.  
  43. int hashfunct PROTO((register char[], int));
  44.  
  45.  
  46. struct hash_entry *ndtbl[NAME_TABLE_HASH_SIZE];
  47. struct hash_entry *sctbl[START_COND_HASH_SIZE];
  48. struct hash_entry *ccltab[CCL_HASH_SIZE];
  49.  
  50. struct hash_entry *findsym();
  51.  
  52.  
  53. /* addsym - add symbol and definitions to symbol table
  54.  *
  55.  * synopsis
  56.  *    char sym[], *str_def;
  57.  *    int int_def;
  58.  *    hash_table table;
  59.  *    int table_size;
  60.  *    0 / -1 = addsym( sym, def, int_def, table, table_size );
  61.  *
  62.  * -1 is returned if the symbol already exists, and the change not made.
  63.  */
  64.  
  65. int addsym( sym, str_def, int_def, table, table_size )
  66. register char sym[];
  67. char *str_def;
  68. int int_def;
  69. hash_table table;
  70. int table_size;
  71.  
  72.     {
  73.     int hash_val = hashfunct( sym, table_size );
  74.     register struct hash_entry *sym_entry = table[hash_val];
  75.     register struct hash_entry *new_entry;
  76.     register struct hash_entry *successor;
  77.  
  78.     while ( sym_entry )
  79.     {
  80.     if ( ! strcmp( sym, sym_entry->name ) )
  81.         { /* entry already exists */
  82.         return ( -1 );
  83.         }
  84.     
  85.     sym_entry = sym_entry->next;
  86.     }
  87.  
  88.     /* create new entry */
  89.     new_entry = (struct hash_entry *) malloc( sizeof( struct hash_entry ) );
  90.  
  91.     if ( new_entry == NULL )
  92.     flexfatal( "symbol table memory allocation failed" );
  93.  
  94.     if ( (successor = table[hash_val]) )
  95.     {
  96.     new_entry->next = successor;
  97.     successor->prev = new_entry;
  98.     }
  99.     else
  100.     new_entry->next = NULL;
  101.  
  102.     new_entry->prev = NULL;
  103.     new_entry->name = sym;
  104.     new_entry->str_val = str_def;
  105.     new_entry->int_val = int_def;
  106.  
  107.     table[hash_val] = new_entry;
  108.  
  109.     return ( 0 );
  110.     }
  111.  
  112.  
  113. /* cclinstal - save the text of a character class
  114.  *
  115.  * synopsis
  116.  *    Char ccltxt[];
  117.  *    int cclnum;
  118.  *    cclinstal( ccltxt, cclnum );
  119.  */
  120.  
  121. void cclinstal( ccltxt, cclnum )
  122. Char ccltxt[];
  123. int cclnum;
  124.  
  125.     {
  126.     /* we don't bother checking the return status because we are not called
  127.      * unless the symbol is new
  128.      */
  129.     Char *copy_unsigned_string();
  130.  
  131.     (void) addsym( (char *) copy_unsigned_string( ccltxt ), (char *) 0, cclnum,
  132.            ccltab, CCL_HASH_SIZE );
  133.     }
  134.  
  135.  
  136. /* ccllookup - lookup the number associated with character class text
  137.  *
  138.  * synopsis
  139.  *    Char ccltxt[];
  140.  *    int ccllookup, cclval;
  141.  *    cclval/0 = ccllookup( ccltxt );
  142.  */
  143.  
  144. int ccllookup( ccltxt )
  145. Char ccltxt[];
  146.  
  147.     {
  148.     return ( findsym( (char *) ccltxt, ccltab, CCL_HASH_SIZE )->int_val );
  149.     }
  150.  
  151.  
  152. /* findsym - find symbol in symbol table
  153.  *
  154.  * synopsis
  155.  *    char sym[];
  156.  *    hash_table table;
  157.  *    int table_size;
  158.  *    struct hash_entry *sym_entry, *findsym();
  159.  *    sym_entry = findsym( sym, table, table_size );
  160.  */
  161.  
  162. struct hash_entry *findsym( sym, table, table_size )
  163. register char sym[];
  164. hash_table table;
  165. int table_size;
  166.  
  167.     {
  168.     register struct hash_entry *sym_entry = table[hashfunct( sym, table_size )];
  169.     static struct hash_entry empty_entry =
  170.     {
  171.     (struct hash_entry *) 0, (struct hash_entry *) 0, NULL, NULL, 0,
  172.     } ;
  173.  
  174.     while ( sym_entry )
  175.     {
  176.     if ( ! strcmp( sym, sym_entry->name ) )
  177.         return ( sym_entry );
  178.     sym_entry = sym_entry->next;
  179.     }
  180.  
  181.     return ( &empty_entry );
  182.     }
  183.  
  184.     
  185. /* hashfunct - compute the hash value for "str" and hash size "hash_size"
  186.  *
  187.  * synopsis
  188.  *    char str[];
  189.  *    int hash_size, hash_val;
  190.  *    hash_val = hashfunct( str, hash_size );
  191.  */
  192.  
  193. int hashfunct( str, hash_size )
  194. register char str[];
  195. int hash_size;
  196.  
  197.     {
  198.     register int hashval;
  199.     register int locstr;
  200.  
  201.     hashval = 0;
  202.     locstr = 0;
  203.  
  204.     while ( str[locstr] )
  205.     hashval = ((hashval << 1) + str[locstr++]) % hash_size;
  206.  
  207.     return ( hashval );
  208.     }
  209.  
  210.  
  211. /* ndinstal - install a name definition
  212.  *
  213.  * synopsis
  214.  *    char nd[];
  215.  *    Char def[];
  216.  *    ndinstal( nd, def );
  217.  */
  218.  
  219. void ndinstal( nd, def )
  220. char nd[];
  221. Char def[];
  222.  
  223.     {
  224.     char *copy_string();
  225.     Char *copy_unsigned_string();
  226.  
  227.     if ( addsym( copy_string( nd ), (char *) copy_unsigned_string( def ), 0,
  228.          ndtbl, NAME_TABLE_HASH_SIZE ) )
  229.     synerr( "name defined twice" );
  230.     }
  231.  
  232.  
  233. /* ndlookup - lookup a name definition
  234.  *
  235.  * synopsis
  236.  *    char nd[], *def;
  237.  *    char *ndlookup();
  238.  *    def/NULL = ndlookup( nd );
  239.  */
  240.  
  241. Char *ndlookup( nd )
  242. char nd[];
  243.  
  244.     {
  245.     return ( (Char *) findsym( nd, ndtbl, NAME_TABLE_HASH_SIZE )->str_val );
  246.     }
  247.  
  248.  
  249. /* scinstal - make a start condition
  250.  *
  251.  * synopsis
  252.  *    char str[];
  253.  *    int xcluflg;
  254.  *    scinstal( str, xcluflg );
  255.  *
  256.  * NOTE
  257.  *    the start condition is Exclusive if xcluflg is true
  258.  */
  259.  
  260. void scinstal( str, xcluflg )
  261. char str[];
  262. int xcluflg;
  263.  
  264.     {
  265.     char *copy_string();
  266.  
  267.     /* bit of a hack.  We know how the default start-condition is
  268.      * declared, and don't put out a define for it, because it
  269.      * would come out as "#define 0 1"
  270.      */
  271.     /* actually, this is no longer the case.  The default start-condition
  272.      * is now called "INITIAL".  But we keep the following for the sake
  273.      * of future robustness.
  274.      */
  275.  
  276.     if ( strcmp( str, "0" ) )
  277.     printf( "#define %s %d\n", str, lastsc );
  278.  
  279.     if ( ++lastsc >= current_max_scs )
  280.     {
  281.     current_max_scs += MAX_SCS_INCREMENT;
  282.  
  283.     ++num_reallocs;
  284.  
  285.     scset = reallocate_integer_array( scset, current_max_scs );
  286.     scbol = reallocate_integer_array( scbol, current_max_scs );
  287.     scxclu = reallocate_integer_array( scxclu, current_max_scs );
  288.     sceof = reallocate_integer_array( sceof, current_max_scs );
  289.     scname = reallocate_char_ptr_array( scname, current_max_scs );
  290.     actvsc = reallocate_integer_array( actvsc, current_max_scs );
  291.     }
  292.  
  293.     scname[lastsc] = copy_string( str );
  294.  
  295.     if ( addsym( scname[lastsc], (char *) 0, lastsc,
  296.          sctbl, START_COND_HASH_SIZE ) )
  297.     format_pinpoint_message( "start condition %s declared twice", str );
  298.  
  299.     scset[lastsc] = mkstate( SYM_EPSILON );
  300.     scbol[lastsc] = mkstate( SYM_EPSILON );
  301.     scxclu[lastsc] = xcluflg;
  302.     sceof[lastsc] = false;
  303.     }
  304.  
  305.  
  306. /* sclookup - lookup the number associated with a start condition
  307.  *
  308.  * synopsis
  309.  *    char str[], scnum;
  310.  *    int sclookup;
  311.  *    scnum/0 = sclookup( str );
  312.  */
  313.  
  314. int sclookup( str )
  315. char str[];
  316.  
  317.     {
  318.     return ( findsym( str, sctbl, START_COND_HASH_SIZE )->int_val );
  319.     }
  320.